home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / egyptw.dir / 01720_Script_Pharaohs < prev    next >
Text File  |  1995-09-13  |  8KB  |  283 lines
  1. global gQuest, gBeenClicked
  2.  
  3. on EParoahsRollovers1
  4.   set gBeenClicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(9) then
  7.       repeat while rollover(9)
  8.         EgyptCursor
  9.         set the locH of sprite 10 to 236
  10.         set the locV of sprite 10 to 348
  11.         updatestage
  12.         if the mousedown then
  13.           puppetsound "SE320200.AIF"
  14.         end if
  15.       end repeat
  16.       set the locH of sprite 10 to 999
  17.       updatestage
  18.     else
  19.       if rollover(8) then
  20.         repeat while rollover(8)
  21.           EgyptCursor
  22.           set the locH of sprite 28 to 475
  23.           set the locV of sprite 28 to 226
  24.           updatestage
  25.           if the mousedown then
  26.             set GBeenClicked = 1
  27.           else
  28.             if gBeenClicked = 1 then
  29.               repeat while gBeenClicked = 1
  30.                 AnimateLoopFast 8, 1242, 2, "SE321101.AIF (Marching)", 6
  31.               end repeat
  32.             end if
  33.           end if
  34.         end repeat
  35.         set the locH of sprite 28 to 999
  36.         updatestage
  37.       else
  38.         if rollover(11) or rollover(6) then
  39.           repeat while rollover(11) or rollover(6)
  40.             EgyptCursor
  41.             set the locH of sprite 12 to 304
  42.             set the locV of sprite 12 to 194
  43.             updatestage
  44.             if the mousedown then
  45.               set GBeenClicked = 1
  46.             else
  47.               if gBeenClicked = 1 then
  48.                 repeat while gBeenClicked = 1
  49.                   AnimatePharaoh
  50.                 end repeat
  51.               end if
  52.             end if
  53.           end repeat
  54.           set the locH of sprite 12 to 999
  55.           updatestage
  56.         else
  57.           if rollover(13) then
  58.             ArrowCursor
  59.             repeat while rollover(13)
  60.               set the locH of sprite 14 to 502
  61.               set the locV of sprite 14 to 308
  62.               updatestage
  63.             end repeat
  64.             set the locH of sprite 14 to 999
  65.             updatestage
  66.           else
  67.             if rollover(15) then
  68.               ArrowCursor
  69.               repeat while rollover(15)
  70.                 set the locH of sprite 16 to 487
  71.                 set the locV of sprite 16 to 337
  72.                 updatestage
  73.               end repeat
  74.               set the locH of sprite 16 to 999
  75.               updatestage
  76.             else
  77.               if rollover(17) then
  78.                 ArrowCursor
  79.                 repeat while rollover(17)
  80.                   set the locH of sprite 18 to 471
  81.                   set the locV of sprite 18 to 328
  82.                   updatestage
  83.                 end repeat
  84.                 set the locH of sprite 18 to 999
  85.                 updatestage
  86.               else
  87.                 if rollover(40) then
  88.                   HandCursor
  89.                 else
  90.                   if rollover(41) then
  91.                     HandCursor
  92.                   else
  93.                     if rollover(42) then
  94.                       HandCursor
  95.                     else
  96.                       ArrowCursor
  97.                     end if
  98.                   end if
  99.                 end if
  100.               end if
  101.             end if
  102.           end if
  103.         end if
  104.       end if
  105.     end if
  106.   end if
  107.   RandomQuestion(gQuest)
  108. end
  109.  
  110. on EParoahsRollovers2
  111.   set gBeenClicked = 0
  112.   if (not(CheckClickedStatus(gQuest))) then
  113.     if rollover(6) then
  114.       repeat while rollover(6)
  115.         EgyptCursor
  116.         set the locH of sprite 11 to 418
  117.         set the locV of sprite 11 to 203
  118.         updatestage
  119.         if the mousedown then
  120.           set GBeenClicked = 1
  121.         else
  122.           if gBeenClicked = 1 then
  123.             repeat while gBeenClicked = 1
  124.               AnimateLoopFast 6,1262,3,"SE320300.AIF",2
  125.             end repeat
  126.           end if
  127.         end if
  128.       end repeat
  129.       set the locH of sprite 11 to 999
  130.       updatestage
  131.     else
  132.       if rollover(9) then
  133.         ArrowCursor
  134.         repeat while rollover(9)
  135.           set the locH of sprite 10 to 329
  136.           set the locV of sprite 10 to 290
  137.           updatestage
  138.         end repeat
  139.         set the locH of sprite 10 to 999
  140.         updatestage
  141.       else
  142.         if rollover(7) then
  143.           repeat while rollover(7)
  144.             EgyptCursor
  145.             set the locH of sprite 12 to 418
  146.             set the locV of sprite 12 to 304
  147.             updatestage
  148.             if the mousedown then
  149.               set GBeenClicked = 1
  150.             else
  151.               if gBeenClicked = 1 then
  152.                 repeat while gBeenClicked = 1
  153.                   AnimateLoopFastest 7, 1265, 3, "SE321000.AIF (beating)", 1
  154.                 end repeat
  155.               end if
  156.             end if
  157.           end repeat
  158.           set the locH of sprite 12 to 999
  159.           updatestage
  160.         else
  161.           if rollover(8) then
  162.             repeat while rollover(8)
  163.               EgyptCursor
  164.               set the locH of sprite 28 to 521
  165.               set the locV of sprite 28 to 271
  166.               updatestage
  167.               if the mousedown then
  168.                 set GBeenClicked = 1
  169.               else
  170.                 if gBeenClicked = 1 then
  171.                   repeat while gBeenClicked = 1
  172.                     AnimateLoopFast 8, 1268, 2, "SE321101.AIF (Marching)", 4
  173.                   end repeat
  174.                 end if
  175.               end if
  176.             end repeat
  177.             set the locH of sprite 28 to 999
  178.             updatestage
  179.           else
  180.             if rollover(39) then
  181.               HandCursor
  182.             else
  183.               if rollover(41) then
  184.                 HandCursor
  185.               else
  186.                 if rollover(42) then
  187.                   HandCursor
  188.                 else
  189.                   ArrowCursor
  190.                 end if
  191.               end if
  192.             end if
  193.           end if
  194.         end if
  195.       end if
  196.     end if
  197.   end if
  198.   RandomQuestion(gQuest)
  199. end
  200.  
  201. on AnimatePharaoh
  202.   ArrowCursor
  203.   set gAnimationcast1 = 1234
  204.   set gAnimationcast2 = 1237
  205.   set count = 0
  206.   repeat while count < 1 and (the mouseUp)
  207.     set the castnum of sprite 7 = gAnimationcast2 + 1
  208.     updatestage
  209.     wait .1
  210.     if (the mousedown) then 
  211.       exit repeat
  212.     end if
  213.     set the castnum of sprite 6 = gAnimationcast1 + 1
  214.     set the castnum of sprite 7 = gAnimationcast2 + 2
  215.     updatestage
  216.     wait .1
  217.     if (the mousedown) then 
  218.       exit repeat
  219.     end if
  220.     set the castnum of sprite 7 = gAnimationcast2 + 3
  221.     updatestage
  222.     wait .1
  223.     if (the mousedown) then 
  224.       exit repeat
  225.     end if
  226.     set the castnum of sprite 7 = gAnimationcast2 + 4
  227.     updatestage
  228.     wait .3
  229.     if (the mousedown) then 
  230.       exit repeat
  231.     end if
  232.     set the castnum of sprite 6 = gAnimationcast1 + 2
  233.     set the castnum of sprite 7 = gAnimationcast2 + 3
  234.     updatestage
  235.     wait .1
  236.     if (the mousedown) then 
  237.       exit repeat
  238.     end if
  239.     set the castnum of sprite 7 = gAnimationcast2 + 2
  240.     updatestage
  241.     wait .1
  242.     if (the mousedown) then 
  243.       exit repeat
  244.     end if
  245.     set the castnum of sprite 7 = gAnimationcast2 + 3
  246.     updatestage
  247.     wait .1
  248.     if (the mousedown) then 
  249.       exit repeat
  250.     end if
  251.     set the castnum of sprite 7 = gAnimationcast2 + 4
  252.     updatestage
  253.     wait .3
  254.     if (the mousedown) then 
  255.       exit repeat
  256.     end if
  257.     set the castnum of sprite 7 = gAnimationcast2 + 3
  258.     updatestage
  259.     wait .1
  260.     if (the mousedown) then 
  261.       exit repeat
  262.     end if
  263.     set the castnum of sprite 6 = gAnimationcast1 + 1
  264.     set the castnum of sprite 7 = gAnimationcast2 + 2
  265.     updatestage
  266.     wait .2
  267.     if (the mousedown) then 
  268.       exit repeat
  269.     end if
  270.     set the castnum of sprite 7 = gAnimationcast2 + 1
  271.     updatestage
  272.     wait .2
  273.     if (the mousedown) then 
  274.       exit repeat
  275.     end if
  276.     set count = count + 1
  277.   end repeat
  278.   set the castnum of sprite 6 = gAnimationcast1
  279.   set the castnum of sprite 7 = gAnimationcast2
  280.   updatestage
  281.   set gBeenClicked = 0
  282. end
  283.